CGI How-To/CGI HOW-TO.iso/chap5/5_1/parse_pl/tester.pl

Perl Script | 1996-06-15 | 242 b | 18 lines

#!/usr/bin/perl

require "parsehtm.pl";
require "handlers.pl";

%userData;

if($ARGV[0])
{
    $userData{"name"} = "stephen";
    $userData{"email"} = "[e-mail]";

    $output = &parseHtml($ARGV[0],%userData);
    print $output;
}

1;